home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / LEFT.ADA < prev    next >
Text File  |  1994-01-11  |  168b  |  8 lines
  1. WITH Spider; USE Spider;
  2. PROCEDURE Left IS       -- Defining a new command for the spider
  3. BEGIN
  4.    Turn;
  5.    Turn;
  6.    Turn;
  7. END Left;               -- End of Definition
  8.